%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%id=replacebadchar(trim(request("id")))
if not IsNumeric(id) then
response.write""
response.end
end if
set rs=server.CreateObject("adodb.recordset")
rs.open"select * from product where id="&id,conn,1,3
if rs.recordcount=0 then
response.write""
response.end
end if
rs("hits")=rs("hits")+1
rs.update%>
|